/* GUI CONVERTED from ecroput.i (converter v1.76) Thu Apr 25 18:57:25 2002 */
/* ecroput.i - QAD_WKFL DEFINITION FILE FOR ECD2_DET FIELDS                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.3.1.4 $                                                       */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 8.6       DATE CREATED: 06/24/97    BY: Joe Gawel *K0F4*         */
/* REVISION: 8.6      DATE MODIFIED: 05/20/98    BY: *K1Q4* Alfred Tan        */
/* REVISION: 9.1      DATE MODIFIED: 08/14/00    BY: *N0KW* Jacolyn Neder     */
/* $Revision: 1.3.1.4 $   BY: Jean Miller        DATE: 04/12/02  ECO: *P05H*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* PUT ecd2_det SIDEFILE RECORD TO QAD_WKFL */

find first qad_wkfl where
           qad_wkfl.qad_key1 = "ecd2_det"
       and qad_wkfl.qad_key2 = string({&nbr},"x(24)") +
                               string({&routing},"x(18)") +
                               string(string({&op}),"x(5)")
{&lock} no-error.

if not available qad_wkfl then do:

   create qad_wkfl.
   assign
      qad_wkfl.qad_key1 = "ecd2_det"
      qad_wkfl.qad_key2 = string(ecd2_nbr,"x(24)") +
                          string(ecd2_routing,"x(18)") +
                          string(string(ecd2_op),"x(5)").
end.  /* IF NOT AVAILABLE QAD_WKFL */

assign
   qad_wkfl.qad_charfld[1]  = string(ecd2_milestone)
   qad_wkfl.qad_decfld[1]   = decimal(ecd2_tran_qty)
   qad_wkfl.qad_decfld[2]   = decimal(ecd2_sub_lead)
   qad_wkfl.qad_decfld[3]   = ecd2_queue
   qad_wkfl.qad_decfld[4]   = ecd2_wait
   qad_wkfl.qad_decfld[5]   = ecd2_move
   qad_wkfl.qad_decfld[6]   = ecd2_inv_value
   qad_wkfl.qad_charfld[2]  = string(ecd2_mv_nxt_op)
   qad_wkfl.qad_charfld[3]  = ecd2_wipmtl_part
   qad_wkfl.qad_charfld[4]  = ecd2_po_nbr
   qad_wkfl.qad_decfld[7]   = decimal(ecd2_po_line)
   qad_wkfl.qad_decfld[8]   = ecd2_cyc_rate
   qad_wkfl.qad_charfld[5]  = string(ecd2_auto_lbr).
